home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / Miscellaneous Disk Images / ProDOS Basic Examples / PROGRAMS / POKER.bas < prev    next >
Encoding:
BASIC Source File  |  1983-10-01  |  590 b   |  20 lines
  1. 5  REM  MACHINE LANGUAGE POKER
  2. 10 D$ =  CHR$(4): REM  CONTROL-D
  3. 20  PRINT D$;"PREFIX /EXAMPLES/DATA"
  4. 30  PRINT D$;"OPEN POKER.EXEC"
  5. 40  PRINT D$;"CLOSE POKER.EXEC"
  6. 50  PRINT D$;"DELETE POKER.EXEC"
  7. 60  PRINT D$;"OPEN POKER.EXEC"
  8. 70  PRINT D$;"WRITE POKER.EXEC"
  9. 80 LINENUMBER = 7000
  10. 90  FOR PLACE = 768 TO 783
  11. 100 :COUNTER = COUNTER +1
  12. 110 : IF COUNTER = 10  THEN COUNTER = 1
  13. 120 : IF COUNTER < >1  THEN 150
  14. 130 : PRINT : PRINT LINENUMBER;
  15. 140 :LINENUMBER = LINENUMBER +1
  16. 150 : PRINT " POKE ";PLACE;","; PEEK(PLACE);" :";
  17. 160  NEXT PLACE
  18. 170  PRINT 
  19. 180  PRINT D$;"CLOSE POKER.EXEC"
  20. 190  END